| destroy method |
Applies to
TTestResult
Declaration
Destructor destroy;
Implementation
destructor TTestResult.destroy;
var
i: Integer;
begin
fListeners := nil;
for i := 0 to fErrors.Count - 1 do
begin
TTestFailure(fErrors[i]).Free;
end;
fErrors.Free;
for i := 0 to fFailures.Count - 1 do
begin
TTestFailure(fFailures[i]).Free;
end;
fFailures.Free;
inherited Destroy;
End; |
|
|